|
100
|
How can I change the group's caption
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
AddItem('Item 3',Null);
Caption := 'new caption';
Expanded := True;
end;
end
|
|
99
|
How can I get the number or count of items in a group
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
AddItem('Item 3',Null);
AddItem(Count,Null);
Expanded := True;
end;
end
|
|
98
|
How can I access an item in a group
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
AddItem('Item 3',Null);
Item[OleVariant(1)].Bold := True;
Expanded := True;
end;
end
|
|
97
|
How can I remove all items, from a group
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
AddItem('Item 3',Null);
Clear();
Expanded := True;
end;
end
|
|
96
|
How can I remove an item, from a group
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
AddItem('Item 3',Null);
RemoveItem(OleVariant(1));
Expanded := True;
end;
end
|
|
95
|
How can I add a new item to a group
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with Groups.Add('Group 1') do
begin
AddItem('Item 1',OleVariant(1));
Expanded := True;
end;
end
|
|
94
|
How can I add a new item to a group
with ExplorerBar1 do
begin
Groups.Add('Group 1').AddItem('Item 1',Null);
end
|
|
93
|
How can I add a new item to a group
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
Expanded := True;
end;
end
|
|
92
|
How can I get the groups as they are listed
with ExplorerBar1 do
begin
with Groups do
begin
Add('Group 1');
Add('Group 2');
Add('Group 3');
end;
end
|
|
91
|
How can I access a group by position
with ExplorerBar1 do
begin
with Groups do
begin
Add('Group 1');
Add('Group 2');
Add('Group 3');
ItemByPos[1].Bold := True;
end;
end
|
|
90
|
How can I access a group
with ExplorerBar1 do
begin
with Groups do
begin
Add('Group 1');
Add('Group 2');
Add('Group 3');
Item[OleVariant(1)].Bold := True;
end;
end
|
|
89
|
How can I clear the groups collection
with ExplorerBar1 do
begin
with Groups do
begin
Add('Group 1');
Add('Group 2');
Add('Group 3');
Clear();
end;
end
|
|
88
|
How can I remove a group
with ExplorerBar1 do
begin
with Groups do
begin
Add('Group 1');
Add('Group 2');
Add('Group 3');
Remove(OleVariant(1));
end;
end
|
|
87
|
How can I add a group
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
Expanded := True;
end;
end
|
|
86
|
How do I count the number of groups
with ExplorerBar1 do
begin
with Groups do
begin
Add('Group 1');
Add('Group 2');
Add('Group 3');
Add(Count);
end;
end
|
|
85
|
How can I display pictures with a custom size, instead icons, in the shortcut bar
with ExplorerBar1 do
begin
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set 1';
Groups.Add('Group 2').Shortcut := 'Set 1';
Groups.Add('Group 3').Shortcut := 'Set 2';
Groups.Add('Group 4').Shortcut := 'Set 2';
ShortcutPicture['Set 1'] := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
ShortcutPicture['Set 2'] := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\auction.gif`)');
ShortcutPictureWidth := 32;
ShortcutPictureHeight := 32;
ShortcutBarHeight := 32;
end
|
|
84
|
How can I display pictures instead icons, in the shortcut bar
with ExplorerBar1 do
begin
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set 1';
Groups.Add('Group 2').Shortcut := 'Set 1';
Groups.Add('Group 3').Shortcut := 'Set 2';
Groups.Add('Group 4').Shortcut := 'Set 2';
ShortcutPicture['Set 1'] := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
ShortcutPicture['Set 2'] := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\auction.gif`)');
ShortcutBarHeight := 44;
end
|
|
83
|
How can I change the visual appearance of the shortcut bar, using EBN files
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ShortcutResizeBackColor := $2000000;
ShortcutBarSelCaptionBackColor := $1000000;
ShortcutBarSelBackColor := $1000000;
BackColorGroup := $1000000;
end
|
|
82
|
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ShortcutResizeBackColor := $1000000;
ExpandShortcutCount := 1;
end
|
|
81
|
How do I change the background color of the separator between groups and the shortcut bar
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ShortcutResizeBackColor := RGB(255,0,0);
ExpandShortcutCount := 1;
end
|
|
80
|
How can I change the visual appearance of the shortcut bar, using your EBN files
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ShortcutBarSelCaptionBackColor := $1000000;
ExpandShortcutCount := 1;
end
|
|
79
|
How do I change the selection background color in the shortcut bar
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ShortcutBarSelCaptionBackColor := RGB(255,0,0);
ExpandShortcutCount := 1;
end
|
|
78
|
How can I change the visual appearance of the shortcut bar, using your EBN files
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ShortcutBarSelBackColor := $1000000;
end
|
|
77
|
How do I change the selection background color in the shortcut bar
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ShortcutBarSelBackColor := RGB(255,0,0);
end
|
|
76
|
How can I change the visual appearance of the shortcut bar, using your EBN files
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ShortcutBarBackColor := $1000000;
end
|
|
75
|
How do I change the background color in the shortcut bar
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ShortcutBarBackColor := RGB(255,0,0);
end
|
|
74
|
How can I programmatically change expand or collapse the shortcut bar
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ExpandShortcutCount := 1;
end
|
|
73
|
How do I change the icon for the expanding or collapsing the shortcut bar
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ExpandShortcutImage := 3;
end
|
|
72
|
How can I enable or disable resizing the shortcut bar
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ExpandShortcutCount := 1;
AllowResizeShortcutBar := False;
end
|
|
71
|
How do I specify the height of the shortcut bar
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ExpandShortcutCount := 1;
ShortcutBarHeight := 16;
end
|
|
70
|
How do I select a shortcut
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ExpandShortcutCount := 1;
SelectShortcut := 'Set <img>2</img>';
end
|
|
69
|
How do I show or hide the shortcut bar
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
ExpandShortcutCount := 1;
end
|
|
68
|
How do I access the groups collection
with ExplorerBar1 do
begin
Groups.Add('Group 1');
end
|
|
67
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
with ExplorerBar1 do
begin
FormatAnchor[False] := '<b><u><fgcolor=FF0000> </fgcolor></u></b>';
HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
HandCursor := False;
Groups.Add('Group <a1><b>1</b></a>').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
|
|
66
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
with ExplorerBar1 do
begin
FormatAnchor[False] := '<b><u><fgcolor=FF0000> </fgcolor></u></b>';
HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
HandCursor := False;
with Groups.Add('Group 1') do
begin
AddItem('Item <a1><b>1</b></a>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Expanded := True;
end;
end
|
|
65
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
with ExplorerBar1 do
begin
HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
HandCursor := False;
FormatAnchor[True] := '<b><u><fgcolor=FF0000> </fgcolor></u></b>';
Groups.Add('Group <a1><b>1</b></a>').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
|
|
64
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
with ExplorerBar1 do
begin
HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
HandCursor := False;
FormatAnchor[True] := '<b><u><fgcolor=FF0000> </fgcolor></u></b>';
with Groups.Add('Group 1') do
begin
AddItem('Item <a1><b>1</b></a>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Expanded := True;
end;
end
|
|
63
|
How can I add several pictures and icons to an item
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
with Groups.Add('Group 1') do
begin
ItemHeight := 48;
with AddItem('<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>',Null) do
begin
Image := OleVariant(2);
CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end;
Expanded := True;
end;
end
|
|
62
|
How can I add several pictures and icons to an item
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
with Groups.Add('Group 1') do
begin
ItemHeight := 48;
with AddItem('<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>',Null) do
begin
Image := OleVariant(2);
CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end;
Expanded := True;
end;
end
|
|
61
|
How can I add several pictures to an item
with ExplorerBar1 do
begin
HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
with Groups.Add('Group 1') do
begin
ItemHeight := 48;
AddItem('<img>pic1</img> text <img>pic2</img>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Expanded := True;
end;
end
|
|
60
|
How can I add several pictures to a group
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
GroupHeight := 48;
with Groups.Add('<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>') do
begin
Image := OleVariant(2);
CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\colorize.gif`)');
AddItem('Item 1',Null);
AddItem('Item 2',Null);
Expanded := True;
end;
end
|
|
59
|
How can I add several pictures and icons to a group
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
GroupHeight := 48;
Groups.Add('<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
|
|
58
|
How can I add several pictures to a group
with ExplorerBar1 do
begin
HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
GroupHeight := 48;
with Groups.Add('<img>pic1</img> text <img>pic2</img>') do
begin
CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\colorize.gif`)');
AddItem('Item 1',Null);
AddItem('Item 2',Null);
Expanded := True;
end;
end
|
|
57
|
How can I add several pictures to a group
with ExplorerBar1 do
begin
HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
GroupHeight := 48;
Groups.Add('<img>pic1</img> text <img>pic2</img>').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
|
|
56
|
How do I force refreshing the control
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
Expanded := True;
AddItem('Item 1',Null);
end;
Refresh();
end
|
|
55
|
How can show or hide the focus rectangle
with ExplorerBar1 do
begin
ShowFocusRect := False;
with Groups.Add('Group 1') do
begin
Expanded := True;
AddItem('Item 1',Null);
end;
end
|
|
54
|
I've seen that the width of the tooltip is variable. Can I make it larger
with ExplorerBar1 do
begin
ToolTipWidth := 328;
Groups.Add('ToolTip').ToolTip := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.';
end
|
|
53
|
How do I let the tooltip being displayed longer
with ExplorerBar1 do
begin
ToolTipPopDelay := 10000;
Groups.Add('ToolTip').ToolTip := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.';
end
|
|
52
|
Can I change the default border of the tooltip, using your EBN files
with ExplorerBar1 do
begin
ToolTipDelay := 1;
ToolTipWidth := 364;
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Background[EXPLORERBARLib_TLB.exToolTipAppearance] := $1000000;
Groups.Add('ToolTip').ToolTip := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.';
end
|
|
51
|
Can I change the background color for the tooltip
with ExplorerBar1 do
begin
ToolTipDelay := 1;
ToolTipWidth := 364;
Background[EXPLORERBARLib_TLB.exToolTipBackColor] := $ff;
Groups.Add('ToolTip').ToolTip := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.';
end
|
|
50
|
Does the tooltip support HTML format
with ExplorerBar1 do
begin
ToolTipDelay := 1;
ToolTipWidth := 364;
Groups.Add('ToolTip').ToolTip := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>';
end
|
|
49
|
Can I change the forecolor for the tooltip
with ExplorerBar1 do
begin
ToolTipDelay := 1;
ToolTipWidth := 364;
Background[EXPLORERBARLib_TLB.exToolTipForeColor] := $ff;
Groups.Add('ToolTip').ToolTip := 'This is a bit of text that''s shown when the cursor hovers the group.';
end
|
|
48
|
Can I change the foreground color for the tooltip
with ExplorerBar1 do
begin
ToolTipDelay := 1;
ToolTipWidth := 364;
Groups.Add('ToolTip').ToolTip := '<fgcolor=FF0000>This is a bit of text that''s shown when the cursor hovers the group.</fgcolor>';
end
|
|
47
|
Can I change the font for the tooltip
with ExplorerBar1 do
begin
ToolTipDelay := 1;
ToolTipWidth := 364;
Groups.Add('ToolTip').ToolTip := '<font Tahoma>This is a bit of text that''s shown when the cursor hovers the group.</font> Back to the normal font';
end
|
|
46
|
Can I change the font for the tooltip
with ExplorerBar1 do
begin
ToolTipDelay := 1;
with ToolTipFont do
begin
Name := 'Tahoma';
Size := 14;
end;
ToolTipWidth := 364;
Groups.Add('ToolTip').ToolTip := 'This is a bit of text that''s shown when the cursor hovers the group.';
end
|
|
45
|
How do I disable showing the tooltip for all control
with ExplorerBar1 do
begin
ToolTipDelay := 0;
Groups.Add('ToolTip').ToolTip := 'This is a bit of text that''s shown when the cursor hovers the group.';
end
|
|
44
|
How do I show the tooltip quicker
with ExplorerBar1 do
begin
ToolTipDelay := 1;
Groups.Add('ToolTip').ToolTip := 'This is a bit of text that''s shown when the cursor hovers the group.';
end
|
|
43
|
How do I call your x-script language
with ExplorerBar1 do
begin
with (IUnknown(ExecuteTemplate('Groups.Add(`Group 1`)')) as EXPLORERBARLib_TLB.Group) do
begin
AddItem('Item 1',Null);
Expanded := True;
end;
end
|
|
42
|
How do I call your x-script language
with ExplorerBar1 do
begin
Template := 'BackColor = RGB(255,0,0)';
end
|
|
41
|
How can I hide a tooltip when the item exceeds its area, so ... are displayed
with ExplorerBar1 do
begin
AllowTooltip := False;
with Groups.Add('Group 1') do
begin
Expanded := True;
AddItem('This isa very long text that should break the control in several pieces',Null);
end;
end
|
|
40
|
How can I show a tooltip when the item exceeds its area, so ... are displayed
with ExplorerBar1 do
begin
AllowTooltip := True;
with Groups.Add('Group 1') do
begin
Expanded := True;
AddItem('This isa very long text that should break the control in several pieces',Null);
end;
end
|
|
39
|
How do I specify the distance between two groups
with ExplorerBar1 do
begin
BorderGroupHeight := 0;
Groups.Add('Group 1');
Groups.Add('Group 2').AddItem('Item 2',Null);
end
|
|
38
|
How can I change the expand / collapse buttons
with ExplorerBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ExpandIcon[True] := 1;
ExpandIcon[False] := 2;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
37
|
How do I enable or disable the control
with ExplorerBar1 do
begin
Enabled := False;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
end
|
|
36
|
How do I hide the icons in the right side of the group, the expand / collapse buttons
with ExplorerBar1 do
begin
BeginUpdate();
DisplayExpandIcon := False;
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
35
|
Is there any option to stop using the hand shape cursor, when the cursor hovers an item
with ExplorerBar1 do
begin
BeginUpdate();
HandCursor := False;
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
34
|
How do I specify the color to highlight the item
with ExplorerBar1 do
begin
BeginUpdate();
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HyperLinkColor := RGB(255,0,0);
HighlightItemType := EXPLORERBARLib_TLB.exHyperLink;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
33
|
How can I expand or collapse a group when I click only its right icon
with ExplorerBar1 do
begin
BeginUpdate();
ExpandOnClick := False;
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HighlightItemType := EXPLORERBARLib_TLB.exHyperLink;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
32
|
How do I remove the control's borders
with ExplorerBar1 do
begin
BeginUpdate();
Appearance := EXPLORERBARLib_TLB.exNone;
BorderWidth := 0;
BorderHeight := 0;
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HighlightItemType := EXPLORERBARLib_TLB.exHyperLink;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
31
|
How do I specify width or the height of the control's borders
with ExplorerBar1 do
begin
BeginUpdate();
Appearance := EXPLORERBARLib_TLB.exNone;
BorderWidth := 0;
BorderHeight := 0;
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HighlightItemType := EXPLORERBARLib_TLB.exHyperLink;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
28
|
How do I specify to highlight the items in the group, when the cursor hovers the item
with ExplorerBar1 do
begin
BeginUpdate();
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HighlightItemType := EXPLORERBARLib_TLB.exHyperLink;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
27
|
How do I specify to highlight the items in the group, when the cursor hovers the item
with ExplorerBar1 do
begin
BeginUpdate();
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HighlightItemType := EXPLORERBARLib_TLB.exUnion;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
26
|
How do I specify to highlight the items in the group, when the cursor hovers the item
with ExplorerBar1 do
begin
BeginUpdate();
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HighlightItemType := EXPLORERBARLib_TLB.exIcon;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
25
|
How do I specify to highlight the items in the group, when the cursor hovers the item
with ExplorerBar1 do
begin
BeginUpdate();
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HighlightItemType := EXPLORERBARLib_TLB.exCaption;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Image := OleVariant(1);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
24
|
How do I specify the way the control highlight the items in the group
with ExplorerBar1 do
begin
BeginUpdate();
HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
23
|
Is there any function to avoid painting the control while adding multiple items and groups
with ExplorerBar1 do
begin
BeginUpdate();
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
Expanded := True;
end;
Groups.Add('Group 2').AddItem('Item 2',Null);
EndUpdate();
end
|
|
22
|
How do I decrease the delay to scroll a group
with ExplorerBar1 do
begin
DelayScroll := 0;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
Expanded := True;
end;
with Groups.Add('Group 2') do
begin
AddItem('Item 2',Null);
Expanded := True;
end;
end
|
|
21
|
How do I display icons
with ExplorerBar1 do
begin
SmallIcons := True;
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
Groups.Add('Group 1').Image := OleVariant(1);
end
|
|
20
|
How do I display 32x32 icons
with ExplorerBar1 do
begin
SmallIcons := False;
GroupHeight := 36;
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
Groups.Add('Group 1').Image := OleVariant(1);
end
|
|
19
|
How do I specify the height of the groups
with ExplorerBar1 do
begin
GroupHeight := 40;
Groups.Add('Group 1');
Groups.Add('Group 2');
end
|
|
18
|
How do I change the visual appearance of the groups
with ExplorerBar1 do
begin
GroupAppearance := EXPLORERBARLib_TLB.exSingle;
Groups.Add('Group 1');
Groups.Add('Group 2');
end
|
|
17
|
How do I change the visual appearance of the groups, using your EBN files
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
BackColorGroup := $1000000;
Groups.Add('Group 1');
Groups.Add('Group 2');
end
|
|
16
|
How do I change the background color for the groups
with ExplorerBar1 do
begin
BackColorGroup := RGB(255,0,0);
BackColorGroup2 := RGB(255,0,0);
Groups.Add('Group 1');
end
|
|
15
|
How do I change the background color for the groups
with ExplorerBar1 do
begin
BackColorGroup := RGB(255,0,0);
Groups.Add('Group 1');
end
|
|
14
|
How do I change the control's foreground color
with ExplorerBar1 do
begin
ForeColor := RGB(0,0,255);
ForeColorGroup := RGB(255,0,0);
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
Expanded := True;
end;
Groups.Add('Group 2');
end
|
|
13
|
How can I change the control's font
with ExplorerBar1 do
begin
Font.Name := 'Tahoma';
Groups.Add('Group 1');
end
|
|
12
|
How do I change the control's foreground color
with ExplorerBar1 do
begin
ForeColor := RGB(255,0,0);
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
Expanded := True;
end;
end
|
|
11
|
How do I change the control's background color
with ExplorerBar1 do
begin
BackColor := RGB(200,200,200);
end
|
|
10
|
How do I change the control's border, using your EBN files
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Appearance := EXPLORERBARLib_TLB.AppearanceEnum($1000000);
end
|
|
9
|
How do I remove the control's border
with ExplorerBar1 do
begin
Appearance := EXPLORERBARLib_TLB.exNone;
end
|
|
8
|
How do I put a picture on the center of the control
with ExplorerBar1 do
begin
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
PictureDisplay := EXPLORERBARLib_TLB.MiddleCenter;
end
|
|
7
|
How do I resize/stretch a picture on the control's background
with ExplorerBar1 do
begin
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
PictureDisplay := EXPLORERBARLib_TLB.Stretch;
end
|
|
6
|
How do I put a picture on the control's center right bottom side
with ExplorerBar1 do
begin
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
PictureDisplay := EXPLORERBARLib_TLB.LowerRight;
end
|
|
5
|
How do I put a picture on the control's center left bottom side
with ExplorerBar1 do
begin
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
PictureDisplay := EXPLORERBARLib_TLB.LowerLeft;
end
|
|
4
|
How do I put a picture on the control's center top side
with ExplorerBar1 do
begin
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
PictureDisplay := EXPLORERBARLib_TLB.UpperCenter;
end
|
|
3
|
How do I put a picture on the control's right top corner
with ExplorerBar1 do
begin
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
PictureDisplay := EXPLORERBARLib_TLB.UpperRight;
end
|
|
2
|
How do I put a picture on the control's left top corner
with ExplorerBar1 do
begin
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
PictureDisplay := EXPLORERBARLib_TLB.UpperLeft;
end
|
|
1
|
How do I put a picture on the control's background
with ExplorerBar1 do
begin
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
end
|